module rad_mod

  use rad_types_mod
  use rad_flux_solver_mod

  implicit none

  private

  public rad_init
  public rad_run
  public rad_final

contains

  subroutine rad_init(planet)

    character(*), intent(in) :: planet

    select case (planet)
    case ('earth')

    case ('mars')

    end select

  end subroutine rad_init

  subroutine rad_run(rad_input, rad_output)

    type(rad_input), intent(in) :: rad_input
    type(rad_output), intent(inout) :: rad_output

  end subroutine rad_run

  subroutine rad_final()

  end subroutine rad_final

end module rad_mod
